#!/usr/bin/tclsh 
set path [file dirname [file normalize [info script]]]
regsub {sim/modelsim} $path "tb" tb_path
regsub {sim/modelsim} $path "src" src_path
set name [file rootname [glob -directory $tb_path -tails *v]]
